﻿Imports System.Windows.Controls.Primitives

Public Class IntValuedThumb
    Inherits Thumb

    Shared Sub New()
        DefaultStyleKeyProperty.OverrideMetadata(GetType(IntValuedThumb), new FrameworkPropertyMetadata(GetType(IntValuedThumb)))
    End Sub



    Public Property Value As Integer
        Get
            Return DirectCast(GetValue(ValueProperty), Integer)
        End Get
        Set(ByVal value As Integer)
            SetValue(ValueProperty, value)
        End Set
    End Property

    Public Shared ReadOnly ValueProperty As DependencyProperty = DependencyProperty.Register( _
        "Value", GetType(Integer), GetType(IntValuedThumb), New FrameworkPropertyMetadata(0))



    Public Property IsNumberShown As Boolean
        Get
            Return DirectCast(GetValue(IsNumberShownProperty), Boolean)
        End Get
        Set(ByVal value As Boolean)
            SetValue(IsNumberShownProperty, value)
        End Set
    End Property

    Public Shared ReadOnly IsNumberShownProperty As DependencyProperty = DependencyProperty.Register( _
        "IsNumberShown", GetType(Boolean), GetType(IntValuedThumb), New FrameworkPropertyMetadata(True))



End Class
